(comint-exec-1): Set EMACS and INSIDE_EMACS to t.

diff --git a/lisp/comint.el b/lisp/comint.el
index 48b747065b5c56f04ab861e670e5dc84a5cf7f38..33195204466b7425ca5930975b4ee7687af0c139 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -769,7 +769,8 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
            (list "TERM=emacs"
                  (format "TERMCAP=emacs:co#%d:tc=unknown:" (window-width))))
          (unless (getenv "EMACS")
-           (list (concat "EMACS=" invocation-directory invocation-name)))
+           (list "EMACS=t"))
+         (list "INSIDE_EMACS=t")
          process-environment))
        (default-directory
          (if (file-accessible-directory-p default-directory)